home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
AZTECW.DIR
/
01706_Script_The Gods
< prev
next >
Wrap
Text File
|
1995-09-12
|
3KB
|
101 lines
global gQuest, gBeenClicked
on AGodsRollovers
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if the mousecast = the castnum of sprite 3 then
repeat while the mousecast = the castnum of sprite 3
AztecCursor
if the mousedown then
puppetsound "SA360201.AIF"
updatestage
repeat while rollover(2)
puppetsprite 3, true
puppetsprite 7, true
puppetsprite 11, true
set the locH of sprite 11 to 422
set the locV of sprite 11 to 216
set the locH of sprite 3 to 822
set the castnum of sprite 7 = 733
updatestage
end repeat
ResetTempleRoof
end if
end repeat
else
if rollover(9) then
repeat while rollover(9)
AztecCursor
puppetsprite 18, true
set the locH of sprite 18 to 320
set the locV of sprite 18 to 155
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateLoopFast 10, 736, 3, "SA360901.AIF", 4
end repeat
end if
end if
end repeat
puppetsprite 18, false
else
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 13 to 431
set the locV of sprite 13 to 351
updatestage
end repeat
set the locH of sprite 13 to 931
updatestage
else
if rollover(14) then
ArrowCursor
repeat while rollover(14)
set the locH of sprite 15 to 337
set the locV of sprite 15 to 335
updatestage
end repeat
set the locH of sprite 15 to 937
updatestage
else
if rollover(16) then
ArrowCursor
repeat while rollover(16)
set the locH of sprite 17 to 298
set the locV of sprite 17 to 214
updatestage
end repeat
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on ResetTempleRoof
set the locH of sprite 3 to 275
set the locV of sprite 3 to 248
set the castnum of sprite 7 to 734
puppetsprite 3, false
puppetsprite 7, false
puppetsprite 11, false
updatestage
end